!--------------------------------
! Programa dedicado a abrir um arquivo
! carregar tres vetores e calcular as 
! contas que estao explicitas
! no proprio codigo.
!
! Programa compilado e testado com:
! $ gfortran -o exec04 exec04.f90
! $ ./exec04
! 
! Forma de utilizacao: simplesmente
! rodar com o arquivo 'vet_inp.dat'
! no mesmo diretorio 
!
! _o_o_ oOo _o_o_ 27/08/2010

PROGRAM exec02
  IMPLICIT NONE
  REAL(8) :: x1,y1,z1 ! Coordenadas do primeiro vetor
  REAL(8) :: x2,y2,z2 ! Coordenadas do segundo vetor
  REAL(8) :: x3,y3,z3 ! Coordenadas do terceiro vetor
  REAL(8) :: x4,y4,z4 ! Coordenadas do vetor auxiliar
  REAL(8) :: var      ! Variavel auxiliar

  OPEN(11,file='vet_inp.dat')
  read(11,*) x1,y1,z1
  read(11,*) x2,y2,z2
  read(11,*) x3,y3,z3
  write(*,*) "****Vetores Carregados****"

  write(*,*) "executando os calculos requeridos"

  var= x1*x2+y1*y2+z1*z2 - (x1*x3+y1*y2+z1*z3)
  write(*,*) var

  var = x1*(x2-x3) +y1*(y2-y3) +z1*(z2-z3)
  write(*,*) var

  var= x1*x2+y1*y2+z1*z2
  x4=x1-var*x3
  y4=y1-var*y3
  z4=z1-var*z3
  write(*,*) x4,y4,z4

  x4=y1*z3-z1*y3
  y4=z1*x3-x1*z3
  z4=x1*y3-y1*x3
  var=x1*x4+y1*y4+z1*z4
  write(*,*) var
end PROGRAM
